2025-12-02

df_long <- df_num |>
select(c(patient_no,stage, age, weight, follow_up_months,
sys_blood_pressure, dia_blood_pressure,
serum_hemoglobin, serum_prostatic_acid_phosphatase,
combined_index, size_of_primary_tumor, is_alive, performance, medical_history,ekg, bone_metastases, treatment, dosage)) |>
pivot_longer(cols = c(stage, age, weight, follow_up_months,
sys_blood_pressure, dia_blood_pressure,
serum_hemoglobin, serum_prostatic_acid_phosphatase,
combined_index, is_alive, performance, medical_history,ekg, bone_metastases, treatment, dosage),
names_to = "variable",
values_to = "value")augment_data <- full_df |>
mutate(MAP = (sys_blood_pressure+ 2 *dia_blood_pressure) / 3,
is_alive = case_when(is_alive == "alive" ~ 0,
is_alive == "dead" ~ 1),
treatment_detail = case_when(
treatment == "placebo" ~ "Placebo",
treatment == "estrogen" & dosage == 0.2 ~ "0.2mg Estrogen",
treatment == "estrogen" & dosage == 1.0 ~ "1.0mg Estrogen",
treatment == "estrogen" & dosage == 5.0 ~ "5.0mg Estrogen",
TRUE ~ NA_character_),
treatment_detail = factor(treatment_detail,
levels = c("Placebo",
"0.2mg Estrogen",
"1.0mg Estrogen",
"5.0mg Estrogen")),)Linear Volcano
Linear Tree
QQ-plot linear
QQ-plot log
Log-Volcano
Log-Forest
Project-group20